      * COBOL UNIT AVAILABLE FUNCTIONS
      * FILE : CBUC0003.CPY

      * THIS COPYBOOK LISTS THE EXTERNAL AND INTERNAL FUNCTIONS
      * AVAILABLE IN THE CURRENT VERSION OF COBOLUNIT DESCRIBED BOTH
      * BY A "LOGICAL NAME" (A COBOL VARIABLE) AND A "NICKNAMES" (THE
      * ASSOCIATED VALUE) ; A USER  ROUTINE SHOULD INVOKE EXTERNAL
      * FUNCTIONS ONLY AND USE THEIR LOGICAL NAME.

      * REMARK : CBU-ASSERT IS NOT INCLUDED HERE SINCE IT APPEARS IN
      *          CBUC0002 COPYBOOK

       01  FILLER.

      * EXTERNAL CALLABLE FUNCTIONS
000400     05 CBU-initialize               PIC X(8)   VALUE "init".
001000     05 CBU-add-suite                PIC X(8)   VALUE "addSuite".
002400     05 CBU-add-test-next            PIC X(8)   VALUE "addTest+".
000800     05 CBU-run                      PIC X(8)   VALUE "run".
           05 CBU-reset-run                PIC X(8)   VALUE "resetRun".
           05 CBU-print-user-msg           PIC X(8)   VALUE "MsgPrint".

      * INTERNAL (NON CALLABLE) ROUTINES
000200     
000600     05 CBU-call-test                PIC X(8)   VALUE "callTest".
001200     05 CBU-add-test                 PIC X(8)   VALUE "addTest".
001400     05 CBU-suites-run               PIC X(8)   VALUE "runAllSt".
001600     05 CBU-suite-run                PIC X(8)   VALUE "runOneSt".
001800     05 CBU-tests-run                PIC X(8)   VALUE "runAllTs".
002000     05 CBU-test-run                 PIC X(8)   VALUE "runOneTs".
002200     05 CBU-set-log-file             PIC X(8)   VALUE "setLogFi".
002600     05 CBU-add-assert-succeed       PIC X(8)   VALUE "recAsrt+".
002800     05 CBU-add-assert-run           PIC X(8)   VALUE "runAssrt".
003000     05 CBU-add-assert-failed        PIC X(8)   VALUE "recAsrt-".
003200     05 CBU-add-error                PIC X(8)   VALUE "addError".
003400     05 CBU-log-assert-succeed       PIC X(8)   VALUE "logAsrt+".
003600     05 CBU-log-assert-failed        PIC X(8)   VALUE "logAsrt-".
003800     05 CBU-write-log-line           PIC X(8)   VALUE "writeLog".
004000     05 CBU-assert-str100-equals     PIC X(8)   VALUE "AsrtS100".
004200     05 CBU-assert-str-equals        PIC X(8)   VALUE "AsrtStr=".
004400     05 CBU-assert-nb3-equals        PIC X(8)   VALUE "AsrtNb3=".
004600     05 CBU-display-line             PIC X(8)   VALUE "dispLine".
004800     05 CBU-display-suite            PIC X(8)   VALUE "dispSuit".
005000     05 CBU-display-res              PIC X(8)   VALUE "dispres".
005200     05 CBU-assert-equals            PIC X(8)   VALUE "assrtEqu".
005500     05 CBU-get-last-index           PIC X(8)   VALUE "getLstNx".
005500     05 CBU-dump                     PIC X(8)   VALUE "CBUDUMP".
           05 CBU-options                  PIC X(8)   VALUE "CBUP0003".



